%!PS-Adobe-3.0
%%Title: Diplomacy Map (Hundred)
%%Creator: dpmap, using a map created with DPeye by Mario Huys (woelpad@yahoo.com)
%%DocumentPaperSizes: Letter
%%LanguageLevel: 2
%%Orientation: Landscape
%%Pages: (atend)
%%DocumentNeededResources: font Helvetica-Bold Courier Courier-Bold Times-Roman
%%EndComments

%%BeginDefaults
%%PageResources: font Helvetica-Bold Courier Courier-Bold Times-Roman
%%EndDefaults

% INFO
%  405  563 ALS    Alsace
%  216  659 ANG    Anglia
%  233  552 ANJ    Anjou
%  248  420 ARA    Aragon
%  205  443 ARA/NC Aragon (north coast)
%  270  409 ARA/SC Aragon (south coast)
%   87  503 ATL    Atlantic
%  117  592 BCH    Bristol Channel
%  159  517 BIS    Bay of Biscay
%  206  550 BRT    Brittany
%  286  607 CAL    Calais
%  375  531 CAN    Cantons
%  161  398 CAS    Castile
%  334  538 CHA    Charolais
%  331  503 DAU    Dauphine
%  195  634 DEV    Devon
%  339  576 DIJ    Dijon
%  278  636 DOV    Strait of Dover
%  182  595 ECH    English Channel
%  318  623 FLA    Flanders
%  347  672 FRI    Friesland
%  227  470 GUY    Guyenne
%  337  647 HOL    Holland
%  127  670 IRI    Irish Sea
%  285  488 LIM    Limousin
%  228  636 LON    London
%  369  564 LOR    Lorraine
%  363  614 LUX    Luxembourg
%  349  415 MED    Mediterranean
%   94  782 MIN    Minch
%  247  586 NMD    Normandy
%  247  769 NTH    North Sea
%  194  690 NUM    Northumbria
%  207  706 NUM/EC Northumbria	(east coast)
%  175  702 NUM/WC Northumbria	(west coast)
%  282  536 ORL    Orleanais
%   85  677 PAL    The Pale
%  293  573 PAR    Paris
%  250  495 POI    Poitou
%  351  467 PRO    Provence
%  393  489 SAV    Savoy
%  164  743 SCO    Scotland
%  273  452 TOU    Toulouse
%  170  652 WAL    Wales
%  295  682 WAS    The Wash
% MAP

%%BeginSetup
/bd { bind def } bind def
/xd { exch def } bd
/ld { load def } bd
/ifloor { .001 add floor cvi } bd
/iceiling { .001 sub ceiling cvi } bd
/min { 2 copy gt { exch } if pop } bd
/max { 2 copy lt { exch } if pop } bd
/secure_atan { 2 copy 0 eq exch 0 eq and { pop pop 0 } { atan } ifelse } bd
/center { 3 2 roll add 2 div 3 1 roll add 2 div exch } bd
/a /arc ld
/c /curveto ld
/d /setdash ld
/f /fill ld
/h /show ld
/k /stroke ld
/l /lineto ld
/m /moveto ld
/n /newpath ld
/o /rotate ld
/p /closepath ld
/r /grestore ld
/s /gsave ld
/t /translate ld
/w /setlinewidth ld
/x /scale ld
/y /scalefont ld
/z /setfont ld
/Powers 20 dict def
%%IncludeResource: font Helvetica-Bold
/MapUnitLetterFont /Helvetica-Bold findfont 14 y def
%%IncludeResource: font Helvetica-Bold
/MapNameFont /Helvetica-Bold findfont 14 y def
%%IncludeResource: font Courier
/TextFixedFont /Courier findfont def
%%IncludeResource: font Courier-Bold
/TextHeadingFont /Courier-Bold findfont def
%%IncludeResource: font Times-Roman
/TextTitleFont /Times-Roman findfont def
/PageSetup {
	612 0 t
	90 o
	/FinishReport { } def /InTextMode true def
	Black
	MovePhase
} bd
/ShowPage {
	DrawAliases
	InTextMode { FinishReport } { r } ifelse
	FrameMap
	showpage
} bd
/VisitColors {
	3 dict begin
	/c xd /r xd /g xd
	/BorderBlack .1 g
	/MountainGrey .5 g
	/IceGrey .9 g
	/ArrowBlack 0 g
	/ArrowWhite .9 g
	/White .9 g
	/Black 0 g
	/LandBrown .8 .7 .4 r
	/SeaBlue .1 .4 .6 r
	/ArrowRed 1 0 0 r
	/ArrowBlue .529 .808 .922 r
	/DarkGreen 0 .4 0 r
	/Red 1 0 0 r
	/Maroon .8 0 0 r
	/Blue 0 0 1 r
	/Green 0 .7 0 r
	/Brown .6 .45 .2 r
	end
} def
/VisitPowers {
	1 dict begin
	/p xd
	/BURGUNDY (B) /Maroon /White p
	/ENGLAND (E) /Blue /White p
	/FRANCE (F) /Green /Black p
	/UNOWNED (?) /Brown /White p
	end
} def
/Controls {
	/ChangeController true def
} bd
/DrawFleet {
	SwitchToMapMode
	Power begin
	s t
	.7 .7 x
	0 8 t
	s
	.5 .5 x -35 -16 t
	12 3 m 12 9 l 9 12 l 6 13 l 6 17 l % bow
	9 17 l 9 23 l 2 22 l 7 16 l 6 16 l
	1 22 l % bowsprit
	6 27 l 12 37 l 15 45 l % front sail
	19 44 l 19 48 l 16 48 l 15 49 l 19 49 l
	19 55 l 20 55 l 20 49 l 24 49 l 23 48 l
	20 48 l 20 44 l % front mast
	24 43 l 24 34 l 27 29 l 33 29 l 33 32 l
	25 32 l 28 39 l 31 51 l % mid sail left
	35 50 l 35 54 l 30 54 l 29 55 l 35 55 l
	35 63 l 36 63 l 36 56 l 36 55 l 42 55 l
	41 54 l 36 54 l 36 50 l % mid mast
	41 49 l 41 32 l 36 32 l 36 29 l 39 29 l
	41 43 l % mid sail right
	45 43 l 45 47 l 41 47 l 41 48 l 45 48 l
	45 55 l 46 55 l 46 48 l 51 48 l 50 47 l
	46 47 l 46 43 l % rear mast
	48 43 l 49 28 l 51 28 l 51 31 l 54 33 l
	54 23 l 57 26 l 57 22 l 56 21 l % rear sail and flag
	56 15 l 59 12 l 59 7 l 57 4 l 55 3 l p % bow
	s Controlled { s 12 w Outer k r } if 4 w Contrast k r Paint f
	r
	Offset aload pop m
	MapUnitLetterFont z
	Contrast Letter h
	r
	end
} bd
/DrawArmy {
	SwitchToMapMode
	Power begin
	s t
	.7 .7 x
	0 8 t
	n 0 0 9 0 360 a p % wheel
	Controlled { s 6 w Outer k r } if 2 w Contrast k
	-20 7 m 10 7 l 10 3 l 14 3 l
	14 1 l -16 1 l -16 3 l -20 3 l p % barrel
	4 2 m 24 -8 l 26 -8 l 18 -8 l -2 2 l % carriage
	s Controlled { s 6 w Outer k r } if 2 w Contrast k r Paint f
	n 0 0 9 0 360 a p % wheel
	Paint f
	Offset aload pop m
	MapUnitLetterFont z
	Contrast Letter h
	r
	end
} bd
/DrawAlias {
	SwitchToMapMode
	s
	3 1 roll t
	.7 .7 x
	0 -14 t
	MapNameFont z
	dup stringwidth pop -2 div 0 neg m h
	r
} bd
/DrawName {
	pop pop pop
} bd
/VisitTerritories {
	5 dict begin
	/b xd
	/g xd
	/w xd
	/l xd
	/c xd
	(HOL) 337 647 c
	(ANG) 216 659 c
	(FLA) 318 623 c
	(GUY) 227 470 c
	(BRT) 206 550 c
	(CAL) 286 607 c
	(FRI) 347 672 c
	(CAS) 161 398 c
	(LON) 228 636 c
	(NMD) 247 586 c
	(DEV) 195 634 c
	(PRO) 351 467 c
	(SAV) 393 489 c
	(SCO) 164 743 c
	(TOU) 273 452 c
	(WAL) 170 652 c
	(PAL) 85 677 c
	(CAN) 375 531 l
	(DAU) 331 503 l
	(DIJ) 339 576 l
	(LIM) 285 488 l
	(LUX) 363 614 l
	(ORL) 282 536 l
	(PAR) 293 573 l
	(POI) 250 495 l
	(LOR) 369 564 l
	(ANJ) 233 552 l
	(CHA) 334 538 l
	(ALS) 405 563 l
	(BIS) 159 517 w
	(BCH) 117 592 w
	(DOV) 278 636 w
	(ECH) 182 595 w
	(IRI) 127 670 w
	(MED) 349 415 w
	(MIN) 94 782 w
	(NTH) 247 769 w
	(WAS) 295 682 w
	(ATL) 87 503 w
	(ARA) 248 420 g
	(NUM) 194 690 g
	(NUM/WC) 175 702 b
	(NUM/EC) 207 706 b
	(ARA/NC) 205 443 b
	(ARA/SC) 270 409 b
	end
} def
/VisitSupplies {
	1 dict begin
	/s xd
	/HOL 342 631 s
	/FLA 318 607 s
	/GUY 217 453 s
	/BRT 217 529 s
	/CAL 277 593 s
	/CAN 399 524 s
	/DAU 318 486 s
	/DIJ 318 576 s
	/LON 214 628 s
	/LUX 345 602 s
	/NMD 251 567 s
	/ORL 270 520 s
	/PAR 308 556 s
	/DEV 195 618 s
	/SCO 186 720 s
	/TOU 286 435 s
	/CAS 161 381 s
	end
} def
/supply {
	SwitchToMapMode
	Power begin
	s
	t
	.7 .7 x
	Controlled {
		Outer
		n 0 0 8 0 360 a f
		Contrast
		n 0 0 6 0 360 a f
	} if
	Paint
	n 0 0 4 0 360 a f
	r
	end
} bd
/SetArrowStateOk {
	[] 0 d
} bd
/OkOrder {
	/SetArrowState /SetArrowStateOk ld
} bd
/SetArrowStateFailed {
	[4 6] 2 d
} bd
/FailedOrder {
	/SetArrowState /SetArrowStateFailed ld
} bd
/MovePhase {
	/ArrowColor /ArrowBlack ld
	/ArrowBase 20 def
	/TraceArrowHead /TraceSingleArrowHead ld
	InTextMode not { ArrowColor } if
} bd
/RetreatPhase {
	/ArrowColor /ArrowRed ld
	/ArrowBase 39.8 def
	/TraceArrowHead /TraceDoubleArrowHead ld
	InTextMode not { ArrowColor } if
} bd
/ProposePhase {
	/ArrowColor /ArrowWhite ld
	/ArrowBase 39.8 def
	/TraceArrowHead /TraceDoubleArrowHead ld
	InTextMode not { ArrowColor } if
} bd
/TraceSingleArrowHead {
	% draw the arrow head ...
	n
	dup -5 m
	dup 20 add 0 l
	dup 5 l
	p
} bd
/TraceDoubleArrowHead {
	% draw the double arrow head ...
	n
	dup -5 m
	dup 19.8 add
	dup -1 l
	dup -5 l
	dup 20 add 0 l
	dup 5 l
	1 l
	dup 5 l
	p
} bd
/PaintArrowMove {
	s
	3 index 3 index t
	3 2 roll sub 3 1 roll exch sub exch
	2 copy dup mul exch dup mul add sqrt 3 1 roll exch secure_atan
	.7 .7 x
	0 8 t
	o
	.7 div ArrowBase sub
	% if base of arrow is long enough, shorten it enough
	% to e.g. move arrow start beyond support circle
	dup 14 gt {
		14 14 0 t sub
	} {
		0 t 0
	} ifelse
	% if base is still too long, shorten it some more
	% to make arrow head touch support circle
	dup 14 gt {
		14 sub
	} {
		pop 0
	} ifelse
	1 w
	TraceArrowHead
	k
	% now the shaft ...
	2 w
	0 0 m
	0 l
	k
	r
} bd
/PaintArrowCircle {
	s
	5 1 roll
	3 index 3 index t
	3 2 roll sub 3 1 roll exch sub exch
	2 copy dup mul exch dup mul add sqrt 3 1 roll exch secure_atan
	.7 .7 x
	0 8 t
	o
	.7 div
	1 index sub
	% if base of arrow is long enough, shorten it enough
	% to e.g. move arrow start beyond support circle
	dup 14 gt {
		14 14 0 t sub
	} {
		0 t 0
	} ifelse
	% draw the circle ...
	1 w
	n
	2 copy add 0 4 3 roll 0 360 a
	p k
	% now the shaft ...
	2 w
	0 0 m
	0 l
	k
	r
} bd
/PaintArrowArrive {
	s
	t
	.7 .7 x
	0 8 t
	180 rotate 54 ArrowBase add neg 0 t
	40
	1 w
	TraceArrowHead
	k
	% now the shaft ...
	2 w
	0 0 m
	0 l
	k
	-5 0 m -10 0 l
	-15 0 m -20 0 l
	k
	r
} bd
/PaintArrowDepart {
	s
	t
	.7 .7 x
	0 8 t
	-54 0 t
	40
	2 w
	0 0 m
	0 l
	-6 0 m -10 0 l
	-16 0 m -20 0 l
	k
	r
} bd
/ArrowMove {
	SwitchToMapMode
	s
	SetArrowState
	PaintArrowMove
	r
} bd
/ArrowHold {
	SwitchToMapMode
	s
	SetArrowState
	24 PaintArrowCircle
	r
} bd
/ArrowSupport {
	SwitchToMapMode
	s
	SetArrowState
	center
	8 PaintArrowCircle
	r
} bd
/ArrowConvoy {
	SwitchToMapMode
	s
	SetArrowState
	center
	12 PaintArrowCircle
	r
} bd
/ArrowArrive {
	SwitchToMapMode
	s
	SetArrowState
	PaintArrowArrive
	r
} bd
/ArrowDepart {
	SwitchToMapMode
	s
	SetArrowState
	PaintArrowDepart
	r
} bd
/ArrowRetreat {
	RetreatPhase
	ArrowMove
	MovePhase
} bd
/ArrowPropose {
	ProposePhase
	ArrowMove
	MovePhase
} bd
/ArrowRetreatArrive {
	RetreatPhase
	ArrowArrive
	MovePhase
} bd
/ArrowRetreatDepart {
	RetreatPhase
	ArrowDepart
	MovePhase
} bd
/BuildUnit {
	SwitchToMapMode
	s
	t
	ArrowWhite
	.7 .7 x
	0 8 t
	6 w [ 3.14 6.28 ] 1.57 d
	n
	0 0 24 0 360 a
	p k
	r
} bd
/SlashUnit {
	s
	3 1 roll t
	.7 .7 x
	0 8 t
	n
	-21 -16 m
	11 16 l
	21 16 l
	-11 -16 l
	p
	exec
	r
} bd
/DestroyUnit {
	SwitchToMapMode
	{ ArrowRed f } SlashUnit
} bd
/DisbandUnit {
	SwitchToMapMode
	{ s ArrowWhite f r 1 w ArrowRed k } SlashUnit
} bd
/RemoveUnit {
	SwitchToMapMode
	{ ArrowWhite f } SlashUnit
} bd
/FindUnit {
	SwitchToMapMode
	s
	t
	ArrowBlue
	.7 .7 x
	0 8 t
	6 w [ 3.14 6.28 ] 1.57 d
	n
	0 0 24 0 360 a
	p k
	r
} bd
/LoseUnit {
	SwitchToMapMode
	s
	t
	ArrowBlue
	.7 .7 x
	0 8 t
	4 w
	-12 4 m
	-8 7 -4 7 0 4 c
	4 1 8 1 12 4 c
	-12 -4 m
	-8 -1 -4 -1 0 -4 c
	4 -7 8 -7 12 -4 c
	k
	r
} bd
/QueryUnit {
	SwitchToMapMode
	s
	t
	ArrowWhite
	.7 .7 x
	0 8 t
	4 w
	-12 4 m
	-8 7 -4 7 0 4 c
	4 1 8 1 12 4 c
	-12 -4 m
	-8 -1 -4 -1 0 -4 c
	4 -7 8 -7 12 -4 c
	k
	r
} bd
/SplitString {
	7 dict begin
	/nrChars xd
	/indentString xd
	/objectString xd
	/objectLast objectString length 1 sub def
	% Short string?
	objectLast nrChars lt {
		false objectString
	} {
		% Look for a suitable place to split.
		% First tracking backwards, if that doesn't work, look forward.
		/splitIndex -1 def
		nrChars -1 0 {
			objectString 1 index get 32 eq {
				/splitIndex xd exit
			} if pop
		} for splitIndex -1 eq {
			nrChars 1 add 1 objectLast {
				objectString 1 index get 32 eq {
					/splitIndex xd exit
				} if pop
			} for
		} if
		splitIndex -1 eq splitIndex objectLast eq or {
			false objectString
		} {
			% The first part.
			objectString 0 splitIndex getinterval
			% The second part.
			objectString splitIndex 1 add objectLast splitIndex sub getinterval
			% Add indentation if needed.
			indentString length 0 gt {
				dup length indentString length add string
				dup 0 indentString putinterval
				dup indentString length 4 3 roll putinterval
			} if
			% Add white space of the first part.
			/nonSpaceIndex objectLast 1 add def
			0 1 objectLast {
				objectString 1 index get 32 ne {
					/nonSpaceIndex xd exit
				} if pop
			} for
			nonSpaceIndex 0 gt nonSpaceIndex splitIndex lt and {
				dup length nonSpaceIndex add string
				dup 0 objectString 0 nonSpaceIndex getinterval putinterval
				dup nonSpaceIndex 4 3 roll putinterval
			} if
			exch true exch
		} ifelse
	} ifelse
	end
} bd
/DrawLayoutBorders {
	s
	TextFixedFont 12 y z
	r
} bd
/Adjustment <<
	/Steps [
		{ /Count 0 def /Y 147.36 def false true } bind
		{
			Count 4 ge { false true } {
				50 SplitString
				/Count Count 1 add def /Y Y 12 sub def
				410.4 Y m h
				true false
			} ifelse
		} bind
		{
			50 SplitString [ exch {
				410.4 87.36 m h
			} /exec load ] cvx /Finish xd
			true true
		} bind
		{
			/Count 1 def /Finish {
				410.4 87.36 m (... \() h
				Count dup 1 add log iceiling string cvs h
				( more\)) h
			} bd false true
		} bind
		{ /Count Count 1 add def 50 SplitString pop true false } bind
	]
	/Start {
		TextHeadingFont 12 y z
		410.4 147.36 moveto
		(Adjustments) h
		TextFixedFont 12 y z
		/StepIndex 0 def
		/Step Steps 0 get def
		/Finish { } def
	} bind
	/Write {
		(  ) {
			Step {
				/StepIndex StepIndex 1 add def
				/Step Steps StepIndex get def
			} if { not { exit } if () } if
		} loop
	} bind
>> def
/AdjustReport {
	SwitchToTextMode
	Adjustment begin Start end
	/FinishReport /FinishAdjustReport load def
} bd
/WriteAdjust {
	Adjustment begin Write end
} bd
/FinishAdjustReport {
	Adjustment begin Finish end
} bd
/Retreat <<
	/Steps [
		{ /Count 0 def /Y 243.36 def false true } bind
		{
			Count 6 ge { false true } {
				50 SplitString
				/Count Count 1 add def /Y Y 12 sub def
				410.4 Y m h
				true false
			} ifelse
		} bind
		{
			50 SplitString [ exch {
				410.4 159.36 m h
			} /exec load ] cvx /Finish xd
			true true
		} bind
		{
			/Count 1 def /Finish {
				410.4 159.36 m (... \() h
				Count dup 1 add log iceiling string cvs h
				( more\)) h
			} bd false true
		} bind
		{ /Count Count 1 add def 50 SplitString pop true false } bind
	]
	/Start {
		TextHeadingFont 12 y z
		410.4 243.36 moveto
		(Retreats) h
		TextFixedFont 12 y z
		/StepIndex 0 def
		/Step Steps 0 get def
		/Finish { } def
	} bind
	/Write {
		(  ) {
			Step {
				/StepIndex StepIndex 1 add def
				/Step Steps StepIndex get def
			} if { not { exit } if () } if
		} loop
	} bind
>> def
/RetreatReport {
	SwitchToTextMode
	Retreat begin Start end
	/FinishReport /FinishRetreatReport load def
} bd
/WriteRetreat {
	Retreat begin Write end
} bd
/FinishRetreatReport {
	Retreat begin Finish end
} bd
/Order <<
	/Steps [
		{ /Count 0 def /Y 519.36 def false true } bind
		{
			Count 21 ge { false true } {
				50 SplitString
				/Count Count 1 add def /Y Y 12 sub def
				410.4 Y m h
				true false
			} ifelse
		} bind
		{
			50 SplitString [ exch {
				410.4 255.36 m h
			} /exec load ] cvx /Finish xd
			true true
		} bind
		{
			/Count 1 def /Finish {
				410.4 255.36 m (... \() h
				Count dup 1 add log iceiling string cvs h
				( more\)) h
			} bd false true
		} bind
		{ /Count Count 1 add def 50 SplitString pop true false } bind
	]
	/Start {
		TextFixedFont 12 y z
		/StepIndex 0 def
		/Step Steps 0 get def
		/Finish { } def
	} bind
	/Write {
		(  ) {
			Step {
				/StepIndex StepIndex 1 add def
				/Step Steps StepIndex get def
			} if { not { exit } if () } if
		} loop
	} bind
>> def
/OrderReport {
	SwitchToTextMode
	Order begin Start end
	/FinishReport /FinishOrderReport load def
} bd
/WriteOrder {
	Order begin Write end
} bd
/FinishOrderReport {
	Order begin Finish end
} bd
/DrawTitle {
	SwitchToTextMode
	TextTitleFont 36 y z
	(Diplomacy)
	410.4 562.08 m h
	TextTitleFont 24 y z
	dup stringwidth pop dup 360 gt {
		410.4 528 m
		360 exch div dup 1 x exch
		0 6.72 rmoveto h
		1 exch div 1 x
	} {
		pop 410.4 534.72 m h
	} ifelse
} bd
/Owner <<
	/Steps [
		{ /Count 0 def /Y 75.36 def false true } bind
		{
			Count 3 ge { false true } {
				104 SplitString
				/Count Count 1 add def /Y Y 12 sub def
				21.6 Y m h
				true false
			} ifelse
		} bind
		{
			104 SplitString [ exch {
				21.6 27.36 m h
			} /exec load ] cvx /Finish xd
			true true
		} bind
		{
			/Count 1 def /Finish {
				21.6 27.36 m (... \() h
				Count dup 1 add log iceiling string cvs h
				( more\)) h
			} bd false true
		} bind
		{ /Count Count 1 add def 104 SplitString pop true false } bind
	]
	/Start {
		TextFixedFont 12 y z
		/StepIndex 0 def
		/Step Steps 0 get def
		/Finish { } def
	} bind
	/Write {
		(  ) {
			Step {
				/StepIndex StepIndex 1 add def
				/Step Steps StepIndex get def
			} if { not { exit } if () } if
		} loop
	} bind
>> def
/OwnerReport {
	SwitchToTextMode
	Owner begin Start end
	/FinishReport /FinishOwnerReport load def
} bd
/WriteOwner {
	Owner begin Write end
} bd
/FinishOwnerReport {
	Owner begin Finish end
} bd
/SwitchToTextMode {
	InTextMode {
		FinishReport /FinishReport { } def
	} {
		r /InTextMode true def
	} ifelse
} bd
/SwitchToMapMode {
	InTextMode {
		FinishReport /FinishReport { } def
		/InTextMode false def
		s
		1.0272 1.0272 x -41.65 -270.45 t ClipMap
		ArrowColor
		OkOrder
	} if
} bd
/FrameMap {
	s
	/fk {
		p
		s 3.89 w Black k r
		clipsave clip k cliprestore
	} bd
	1.0272 1.0272 x -41.65 -270.45 t
	.97 w LandBrown
	OutlineChartBlue
	r
} bd
/PaintMap {
	SwitchToMapMode
	s
	SeaBlue clippath fill
	IncludeIsland
	IncludeInternalBorders
	IncludeConnections
	r
} bd
/DrawMap {
	PageSetup
	PaintMap
	DrawSupplies
} bd
/DrawSupplies {
	SwitchToMapMode
	UNOWNEDCENTER
	{ supply pop } bind
	VisitSupplies
} bd
/DrawAliases {
	NameTerritories
} bd
/NameTerritories {
	SwitchToMapMode
	s
	{ DarkGreen 3 2 roll DrawAlias } bind
	{ DarkGreen 3 2 roll DrawAlias } bind
	{ White 3 2 roll DrawAlias } bind
	{ DarkGreen 3 2 roll DrawAlias } bind
	{ pop pop pop } bind
	VisitTerritories
	r
} bd
/ClipMap {
	/fk { p } bd
	OutlineChartBlue
	clip n
} bd
/IncludeIsland {
	s
	/fk {
		p
		s LandBrown f r
		k
	} bd
	1 w BorderBlack
	OutlineChartBrown
	r
} bd
/IncludeInternalBorders {
	s
	/fk { k } bd
	1 w [ 6 2 ] 3 d BorderBlack
	OutlineChartBlack
	r
} bd
/IncludeConnections {
	s
	/fk { k } bd
	3 w Red
	OutlineChartRed
	r
} bd
/OutlineChartBlue {
	68.82 839.94 m
	68.82 355.14 l
	421.02 355.14 l
	421.02 457.68 l
	421.02 579.66 l
	413.52 592.74 l
	384.72 572.04 l
	381.78 578.52 l
	381.78 622.26 l
	365.88 655.56 l
	365.88 675.36 l
	356.34 678.48 l
	356.34 839.94 l
	68.82 839.94 l
	fk
} bd
/OutlineChartBrown {
	375.42 462.9 m
	370.14 461.82 l
	357.42 448.32 l
	341.46 448.32 l
	329.82 455.58 l
	323.46 452.46 l
	308.58 456.66 l
	293.76 449.34 l
	292.68 434.76 l
	294.84 428.52 l
	293.76 421.2 l
	273.6 406.62 l
	249.24 400.38 l
	248.16 386.82 l
	230.1 375.36 l
	224.1 365.04 l
	96.72 366.36 l
	84.84 373.32 l
	95.4 381.66 l
	106.02 395.16 l
	106.02 408.72 l
	110.28 417.06 l
	121.92 430.56 l
	124.08 445.2 l
	164.34 445.2 l
	174.96 434.76 l
	188.76 434.76 l
	199.38 437.88 l
	199.38 451.44 l
	209.94 457.68 l
	217.38 479.52 l
	214.2 485.82 l
	215.28 501.42 l
	222.72 497.28 l
	215.28 506.64 l
	215.28 518.1 l
	203.58 524.34 l
	198.3 531.66 l
	198.3 539.94 l
	191.94 541.02 l
	190.86 548.28 l
	179.22 549.36 l
	165.42 554.52 l
	157.98 554.52 l
	154.8 559.74 l
	157.98 561.84 l
	154.8 564.96 l
	153.78 569.16 l
	145.26 569.16 l
	168.6 576.42 l
	185.58 579.54 l
	206.76 576.42 l
	201.48 593.1 l
	212.1 594.12 l
	212.1 589.98 l
	216.36 587.88 l
	235.44 587.88 l
	244.98 589.98 l
	239.64 591 l
	241.8 596.22 l
	265.14 603.48 l
	268.32 620.16 l
	286.32 626.4 l
	303.3 632.7 l
	310.74 632.7 l
	307.56 633.72 l
	322.38 640.98 l
	312.84 643.08 l
	311.76 646.2 l
	319.2 652.44 l
	324.54 666 l
	330.9 663.9 l
	327.72 660.78 l
	328.74 655.56 l
	335.1 655.56 l
	334.08 658.74 l
	338.28 661.86 l
	334.08 670.2 l
	336.18 675.36 l
	356.34 678.48 l
	365.88 675.36 l
	365.88 655.56 l
	381.78 622.26 l
	381.78 578.52 l
	384.72 572.04 l
	413.52 592.74 l
	421.02 579.66 l
	421.02 457.68 l
	375.42 462.9 l
	fk
	233.28 688.92 m
	223.74 701.4 l
	214.2 704.52 l
	206.76 720.18 l
	186.66 734.76 l
	177.12 733.74 l
	177.12 737.88 l
	186.66 738.9 l
	183.48 745.2 l
	201.48 766.02 l
	199.38 772.26 l
	172.86 774.36 l
	159.06 768.06 l
	153.78 773.28 l
	163.32 776.4 l
	156.96 779.52 l
	174.96 787.86 l
	177.12 793.08 l
	142.08 788.94 l
	133.62 782.7 l
	136.8 778.5 l
	128.28 773.28 l
	127.26 764.94 l
	132.54 767.04 l
	131.46 761.82 l
	126.18 751.44 l
	119.82 750.36 l
	129.36 746.22 l
	134.64 749.34 l
	130.44 735.78 l
	132.54 730.56 l
	127.26 719.16 l
	130.44 720.18 l
	138.9 734.76 l
	143.16 734.76 l
	146.34 735.78 l
	144.24 728.52 l
	148.44 723.3 l
	142.08 711.84 l
	138.9 710.82 l
	142.08 704.52 l
	145.26 709.74 l
	151.62 705.6 l
	155.88 709.74 l
	173.88 711.84 l
	170.7 707.7 l
	167.52 701.4 l
	173.88 691.02 l
	182.4 695.16 l
	179.22 686.82 l
	181.32 686.82 l
	179.22 680.58 l
	181.32 680.58 l
	177.12 675.36 l
	165.42 676.44 l
	148.44 662.88 l
	157.98 666 l
	159.06 659.76 l
	161.16 658.74 l
	157.98 650.4 l
	137.82 642.06 l
	139.98 636.84 l
	151.62 638.94 l
	159.06 634.74 l
	163.32 637.86 l
	172.86 631.62 l
	186.66 640.98 l
	179.22 628.5 l
	159.06 627.48 l
	131.46 601.44 l
	139.98 601.44 l
	149.52 608.7 l
	167.52 606.66 l
	171.78 616.02 l
	187.2 607.14 l
	211.02 618.06 l
	209.94 622.26 l
	219.54 620.16 l
	244.98 620.16 l
	266.16 628.5 l
	262.98 630.6 l
	248.16 631.62 l
	248.16 635.82 l
	251.34 635.82 l
	250.26 640.98 l
	258.78 638.94 l
	257.7 644.16 l
	264.06 646.2 l
	267.24 654.54 l
	261.96 666 l
	244.98 664.98 l
	240.72 662.88 l
	235.44 662.88 l
	241.8 673.32 l
	229.08 681.66 l
	230.1 685.8 l
	237.54 683.7 l
	236.46 686.82 l
	233.28 688.92 l
	fk
	68.82 702.54 m
	76.92 704.34 l
	82.8 708.36 l
	88.62 708.84 l
	90.9 707.46 l
	93.6 701.16 l
	91.8 698.46 l
	94.5 693.96 l
	98.52 690.84 l
	104.82 687.24 l
	103.5 681.36 l
	103.5 672.84 l
	103.92 667.44 l
	101.7 662.46 l
	97.2 658.44 l
	93.6 652.56 l
	90.9 650.34 l
	86.4 650.76 l
	82.8 650.34 l
	80.1 649.86 l
	76.92 651.24 l
	73.32 653.46 l
	71.52 653.94 l
	68.82 654.84 l
	68.82 702.54 l
	fk
} bd
/OutlineChartBlack {
	84.84 355.14 m
	84.84 373.32 l
	fk
	159.06 839.94 m
	160.14 790.98 l
	fk
	103.02 687.66 m
	138.9 710.82 l
	fk
	93 631.56 m
	137.82 642.06 l
	fk
	99.9 562.56 m
	145.26 569.16 l
	fk
	384.72 572.04 m
	396.66 548.28 l
	fk
	214.2 704.52 m
	197.22 653.52 l
	202.56 647.28 l
	209.94 622.26 l
	fk
	177.12 675.36 m
	186.66 664.98 l
	181.32 652.44 l
	186.66 640.98 l
	fk
	197.22 653.52 m
	181.32 652.44 l
	fk
	202.56 647.28 m
	232.26 643.08 l
	248.16 635.82 l
	fk
	173.88 711.84 m
	206.76 720.18 l
	fk
	249.24 400.38 m
	199.38 437.88 l
	fk
	421.02 520.2 m
	407.22 522.24 l
	399.84 511.86 l
	391.32 521.22 l
	387.12 522.24 l
	382.86 514.98 l
	362.7 510.78 l
	363.78 496.2 l
	fk
	168.6 576.42 m
	139.98 601.44 l
	fk
	235.44 587.88 m
	219.54 620.16 l
	fk
	319.2 652.44 m
	267.24 654.54 l
	fk
	215.28 518.1 m
	230.1 521.22 l
	248.16 527.46 l
	252.42 550.38 l
	248.4 558.96 l
	242.52 567.96 l
	228.6 570.24 l
	211.02 570.18 l
	206.76 576.42 l
	fk
	252.42 550.38 m
	259.8 551.4 l
	257.7 569.16 l
	270.42 585.78 l
	265.14 603.48 l
	fk
	259.8 551.4 m
	281.04 563.94 l
	296.94 553.5 l
	301.2 532.68 l
	315 522.24 l
	322.2 545.46 l
	324.54 563.94 l
	293.76 593.1 l
	270.42 585.78 l
	fk
	293.76 593.1 m
	312.84 601.44 l
	308.58 610.8 l
	296.94 611.82 l
	292.68 618.06 l
	286.32 619.14 l
	286.32 626.4 l
	fk
	315 522.24 m
	311.76 511.86 l
	267.24 510.78 l
	248.16 527.46 l
	fk
	230.1 521.22 m
	237.54 486.84 l
	252.42 476.4 l
	250.26 463.92 l
	251.34 439.98 l
	241.8 435.78 l
	199.38 451.44 l
	fk
	250.26 463.92 m
	270.42 475.38 l
	267.24 510.78 l
	fk
	251.34 439.98 m
	264.06 431.64 l
	294.84 428.52 l
	fk
	270.42 475.38 m
	296.94 464.94 l
	310.74 456.66 l
	fk
	311.76 511.86 m
	303.3 487.86 l
	296.94 464.94 l
	fk
	303.3 487.86 m
	323.46 477.48 l
	363.78 496.2 l
	fk
	362.7 510.78 m
	358.44 520.2 l
	353.16 522.24 l
	346.8 518.1 l
	341.46 516 l
	317.22 528.36 l
	fk
	363.78 496.2 m
	359.52 488.94 l
	362.7 488.94 l
	362.7 479.52 l
	366.96 471.24 l
	375.42 472.26 l
	375.42 462.9 l
	fk
	346.8 518.1 m
	353.22 522.06 l
	363.78 546.24 l
	346.8 558.72 l
	359.52 584.76 l
	381.78 578.52 l
	fk
	363.78 546.24 m
	396.66 548.28 l
	fk
	312.84 601.44 m
	325.56 603.48 l
	328.74 597.24 l
	353.16 593.1 l
	359.52 584.76 l
	fk
	325.56 603.48 m
	338.28 620.16 l
	337.26 630.6 l
	323.46 634.74 l
	310.74 632.7 l
	fk
	338.28 620.16 m
	355.26 642.06 l
	349.98 658.74 l
	338.28 661.86 l
	fk
	355.26 642.06 m
	365.88 655.56 l
	fk
	114.3 421.26 m
	90.9 650.76 l
	fk
	221.82 569.76 m
	219.12 563.46 l
	218.22 555.36 l
	211.92 548.16 l
	219.12 539.16 l
	225.9 534.66 l
	233.52 533.34 l
	250.2 537.36 l
	fk
	228.6 693.96 m
	281.7 730.44 l
	356.82 738.54 l
	fk
	396 547.26 m
	421.02 536.94 l
	fk
	349.62 519.84 m
	348.72 533.76 l
	348.72 544.56 l
	345.12 547.26 l
	339.72 551.34 l
	335.7 554.46 l
	323.1 556.26 l
	fk
} bd
/OutlineChartRed {
	243.9 626.4 m
	272.52 610.8 l
	fk
} bd
{
	currentdict end 3 1 roll [ exch /setgray load ] cvx def begin
}{
	currentdict end 5 1 roll [ 4 1 roll /setrgbcolor load ] cvx def begin
}{
	currentdict end 6 1 roll [ 5 1 roll /setcmykcolor load ] cvx def begin
} bind VisitColors
s
MapUnitLetterFont z
{
	exch load exch load
	2 index [ exch n 0 0 m true charpath pathbbox 3 2 roll add -2 div 3 1 roll add -2 div exch ] 3 1 roll
	4 dict begin /Contrast xd /Paint xd /Offset xd /Letter xd currentdict end
	[ /Power 3 2 roll { dup /Controlled ChangeController put ChangeController { dup /Outer Power /Paint get put /ChangeController false def } if } /exec load /def load ] cvx
	currentdict end 3 1 roll def begin
} VisitPowers
r
/ChangeController false def
/BURGUNDYCENTER /BURGUNDY ld
/ENGLANDCENTER /ENGLAND ld
/FRANCECENTER /FRANCE ld
/UNOWNEDCENTER /UNOWNED ld
{ currentdict end 4 1 roll [ 3 1 roll ] cvx def begin } bind
VisitSupplies
%%EndSetup
